Caso voce quereira baixar o Source code (codigo fonte) desse R notebook, clique no botao no canto superior direito chamado de “code” e selecione “download RMD” :)
Fala pessual! Muitas pessoas tem uma preocupacao muito grande com seus seguidores na redes sociais. Principalmente, muitas pessoas gostam de conferir se seus amigos a seguem de volta. Entretanto, muitos dos aplicativos disponibilizados por terceiros, ou nao sao confiaveis ou nao sao permitidos pelo proprio instagram. Entao, sem mais delongas vou explicar como conferir quem te segue devolta no instagram!
Para fazer isso acesse os seguintes botoes no seu instagram

Aqui temos as contas que nos seguimos. Selecione todas elas, depois copie e cole no R.
Aqui temos as contas que nos seguem… Eu ainda nao tenho nenhuma conta me seguindo ja que eu comecei o meu canal agora… Copie e cole todas as contas no R
Os codigos utilizados no R
Pacotes necessarios:
Para utilizar os codigos voce tem que ter instalado o tityverse no environment do seu R… retire a hashtag do codigo abaixo caso voce nao tenha o tidyverse instalado.
#install.packages("tidyverse")
Carregando p tidyverse no environment
library(tidyverse)
Checando os outputs
seguindo
[1] "markosian\ngal_gadot\nkarenxcheng\nsamhairwolfryder\nsiphomabona\ntom_juenemann\ninstagram\neu"
seguidores
[1] "eu\nnao"
Retirnado os breaks
seguindo <- str_split(string = seguindo,
pattern = "\n")
seguidores <- str_split(string = seguidores,
pattern = "\n")
Checando os novos outputs
seguindo
[[1]]
[1] "markosian" "gal_gadot" "karenxcheng"
[4] "samhairwolfryder" "siphomabona" "tom_juenemann"
[7] "instagram" "eu"
seguidores
[[1]]
[1] "eu" "nao"
Checando os outputs
seguindo
[1] "markosian" "gal_gadot" "karenxcheng"
[4] "samhairwolfryder" "siphomabona" "tom_juenemann"
[7] "instagram" "eu"
seguidores
[1] "eu" "nao"
Checando quais contas nao te seguem devolta
contas_unfollow <- setdiff(seguindo, seguidores)
contas_unfollow <- sort(contas_unfollow)
Essas sao as contas que nao te seguem devolta: gal_gadot instagram karenxcheng markosian samhairwolfryder siphomabona tom_juenemann
LS0tCnRpdGxlOiAiSW5zdGFncmFtIC0gUXVlbSBuYW8gdGUgc2VndWUgZGV2b2x0YT8iCmF1dGhvcjogIlJvZGEsIHBvciBmYXZvciEiCm91dHB1dDogaHRtbF9ub3RlYm9vawotLS0KCkNhc28gdm9jZSBxdWVyZWlyYSBiYWl4YXIgbyAqU291cmNlIGNvZGUqIChjb2RpZ28gZm9udGUpIGRlc3NlICpSIG5vdGVib29rKiwgY2xpcXVlIG5vIGJvdGFvIG5vIGNhbnRvIHN1cGVyaW9yIGRpcmVpdG8gY2hhbWFkbyBkZSAiY29kZSIgZSBzZWxlY2lvbmUgImRvd25sb2FkIFJNRCIgOikKCjxici8+Cjxici8+CiFbQ3JlZGl0b3MgZGEgaW1hZ2VtOiBJbnN0YWdyYW1dKGh0dHBzOi8vY2RuMi52ZWN0b3JzdG9jay5jb20vaS90aHVtYi1sYXJnZS85Ny82Ni9mb2xsb3ctaWNvbi12ZWN0b3ItMjExNzk3NjYuanBnKQo8YnIvPgo8YnIvPgo8YnIvPgo8YnIvPgoKCiMjIyBGYWxhIHBlc3N1YWwhIE11aXRhcyBwZXNzb2FzIHRlbSB1bWEgcHJlb2N1cGFjYW8gbXVpdG8gZ3JhbmRlIGNvbSBzZXVzIHNlZ3VpZG9yZXMgbmEgcmVkZXMgc29jaWFpcy4gUHJpbmNpcGFsbWVudGUsIG11aXRhcyBwZXNzb2FzIGdvc3RhbSBkZSBjb25mZXJpciBzZSBzZXVzIGFtaWdvcyBhIHNlZ3VlbSBkZSB2b2x0YS4gRW50cmV0YW50bywgbXVpdG9zIGRvcyBhcGxpY2F0aXZvcyBkaXNwb25pYmlsaXphZG9zIHBvciB0ZXJjZWlyb3MsIG91IG5hbyBzYW8gY29uZmlhdmVpcyBvdSBuYW8gc2FvIHBlcm1pdGlkb3MgcGVsbyBwcm9wcmlvIGluc3RhZ3JhbS4gRW50YW8sIHNlbSBtYWlzIGRlbG9uZ2FzIHZvdSBleHBsaWNhciBjb21vIGNvbmZlcmlyIHF1ZW0gdGUgc2VndWUgZGV2b2x0YSBubyBpbnN0YWdyYW0hCgoKIyMjIFBhcmEgZmF6ZXIgaXNzbyBhY2Vzc2Ugb3Mgc2VndWludGVzIGJvdG9lcyBubyBzZXUgaW5zdGFncmFtCgohW0NyZWRpdG9zIGRhIGltYWdlbTogSW5zdGFncmFtXShodHRwczovL3Jhdy5naXRodWJ1c2VyY29udGVudC5jb20vcm9kYS1wb3ItZmF2b3IvU2VndWlkb3Jlc19JbnN0YWdyYW0vbWFpbi9JbWFnZW5zL1RlbGElMjBpbmljaWFsJTIwaW5zdGFncmFtJTIwLSUyMHNlZ3VpZG9yZXMuUE5HKQohW0NyZWRpdG9zIGRhIGltYWdlbTogSW5zdGFncmFtXShodHRwczovL3Jhdy5naXRodWJ1c2VyY29udGVudC5jb20vcm9kYS1wb3ItZmF2b3IvU2VndWlkb3Jlc19JbnN0YWdyYW0vbWFpbi9JbWFnZW5zL1RlbGElMjBpbmljaWFsJTIwaW5zdGFncmFtJTIwLSUyMHNldHRpbmdzLlBORykKCgoKIVtDcmVkaXRvcyBkYSBpbWFnZW06IEluc3RhZ3JhbV0oaHR0cHM6Ly9yYXcuZ2l0aHVidXNlcmNvbnRlbnQuY29tL3JvZGEtcG9yLWZhdm9yL1NlZ3VpZG9yZXNfSW5zdGFncmFtL21haW4vSW1hZ2Vucy9pbnN0YWdyYW0lMjBzZWN1cml0eS5QTkcpCgoKCiFbQ3JlZGl0b3MgZGEgaW1hZ2VtOiBJbnN0YWdyYW1dKGh0dHBzOi8vcmF3LmdpdGh1YnVzZXJjb250ZW50LmNvbS9yb2RhLXBvci1mYXZvci9TZWd1aWRvcmVzX0luc3RhZ3JhbS9tYWluL0ltYWdlbnMvYWNjb3VudCUyMGRhdGElMjBpbnN0YWdyYW0uUE5HKQoKCiFbQ3JlZGl0b3MgZGEgaW1hZ2VtOiBJbnN0YWdyYW1dKGh0dHBzOi8vcmF3LmdpdGh1YnVzZXJjb250ZW50LmNvbS9yb2RhLXBvci1mYXZvci9TZWd1aWRvcmVzX0luc3RhZ3JhbS9tYWluL0ltYWdlbnMvYWNjb3VudHMlMjBmb2xsb3dpbmclMjBpbnN0YWdyYW0uUE5HKQoKCgoKCiMjIyBBcXVpIHRlbW9zIGFzIGNvbnRhcyBxdWUgbm9zIHNlZ3VpbW9zLiBTZWxlY2lvbmUgdG9kYXMgZWxhcywgZGVwb2lzIGNvcGllIGUgY29sZSBubyBSLiAKCiFbQ3JlZGl0b3MgZGEgaW1hZ2VtOiBJbnN0YWdyYW1dKGh0dHBzOi8vcmF3LmdpdGh1YnVzZXJjb250ZW50LmNvbS9yb2RhLXBvci1mYXZvci9TZWd1aWRvcmVzX0luc3RhZ3JhbS9tYWluL0ltYWdlbnMvYWNjb3VudHMlMjBJJTIwZm9sbG93JTIwaW5zdGFncmFtLlBORykKCgojIyMgQXF1aSB0ZW1vcyBhcyBjb250YXMgcXVlIG5vcyBzZWd1ZW0uLi4gRXUgYWluZGEgbmFvIHRlbmhvIG5lbmh1bWEgY29udGEgbWUgc2VndWluZG8gamEgcXVlIGV1IGNvbWVjZWkgbyBtZXUgY2FuYWwgYWdvcmEuLi4gQ29waWUgZSBjb2xlIHRvZGFzIGFzIGNvbnRhcyBubyBSCgoKIVtDcmVkaXRvcyBkYSBpbWFnZW06IEluc3RhZ3JhbV0oaHR0cHM6Ly9yYXcuZ2l0aHVidXNlcmNvbnRlbnQuY29tL3JvZGEtcG9yLWZhdm9yL1NlZ3VpZG9yZXNfSW5zdGFncmFtL21haW4vSW1hZ2Vucy9hY291b250cyUyMGZvbGxvd2luZyUyMG1lJTIwaW5zdGFncmFtLlBORykKCjxici8+Cjxici8+CgojIyMgT3MgY29kaWdvcyB1dGlsaXphZG9zIG5vIFIKCgojIyBQYWNvdGVzIG5lY2Vzc2FyaW9zOgoKUGFyYSB1dGlsaXphciBvcyBjb2RpZ29zIHZvY2UgdGVtIHF1ZSB0ZXIgaW5zdGFsYWRvIG8gdGl0eXZlcnNlIG5vIGVudmlyb25tZW50IGRvIHNldSBSLi4uIHJldGlyZSBhIGhhc2h0YWcgZG8gY29kaWdvIGFiYWl4byBjYXNvIHZvY2UgbmFvIHRlbmhhIG8gdGlkeXZlcnNlIGluc3RhbGFkby4KCmBgYHtyfQojaW5zdGFsbC5wYWNrYWdlcygidGlkeXZlcnNlIikKYGBgCgoKQ2FycmVnYW5kbyBwIHRpZHl2ZXJzZSBubyBlbnZpcm9ubWVudAoKYGBge3J9CmxpYnJhcnkodGlkeXZlcnNlKQpgYGAKCiMjIENyaWFuZG8gb3MgdmV0b3JlcyBjb20gb3Mgc2VndWlkb3JlcyBlIHF1ZW0gdm9jZSBlc3RhIHNlZ3VpbmRvCgoKVXRpbGl6YW5kbyBvcyBkYWRvcyB2b2NlIGNvbnNpZ3VpbyBhY2Vzc2FuZG8gc3VhIGNvbnRhIG5vIGluc3RhZ3JhbQoKYGBge3J9CiMgY29sZSBhcyBjb250YXMgcXVlIHNlZ3VlbSB2YyBhcQoKc2VndWlkb3JlcyA8LSBjKCJldQpuYW8iKQpgYGAKCmBgYHtyfQojIGNvbGUgYXMgY29udGFzIHF1ZSB2YyBzZWd1ZSBhcQoKc2VndWluZG8gPC0gYygibWFya29zaWFuCmdhbF9nYWRvdAprYXJlbnhjaGVuZwpzYW1oYWlyd29sZnJ5ZGVyCnNpcGhvbWFib25hCnRvbV9qdWVuZW1hbm4KaW5zdGFncmFtCmV1IikKYGBgCgoKIyMgQ2hlY2FuZG8gb3Mgb3V0cHV0cyAKCmBgYHtyfQpzZWd1aW5kbwpgYGAKYGBge3J9CnNlZ3VpZG9yZXMKYGBgCgoKIyMgUmV0aXJuYWRvIG9zIGJyZWFrcyAKCmBgYHtyfQpzZWd1aW5kbyA8LSBzdHJfc3BsaXQoc3RyaW5nID0gc2VndWluZG8sIAogICAgICAgICAgICAgICAgICAgICAgcGF0dGVybiA9ICJcbiIpCmBgYAoKYGBge3J9CnNlZ3VpZG9yZXMgPC0gc3RyX3NwbGl0KHN0cmluZyA9IHNlZ3VpZG9yZXMsIAogICAgICAgICAgICAgICAgICAgICAgcGF0dGVybiA9ICJcbiIpCmBgYAoKCiMjIENoZWNhbmRvIG9zIG5vdm9zIG91dHB1dHMKYGBge3J9CnNlZ3VpbmRvCnNlZ3VpZG9yZXMKYGBgCgoKIyMgVHJhbnNmb3JtYW5kbyBsaXN0YXMgZW0gdmV0b3JlcwoKYGBge3J9CnNlZ3VpbmRvIDwtIHNlZ3VpbmRvW1sxXV0KYGBgCgpgYGB7cn0Kc2VndWlkb3JlcyA8LSBzZWd1aWRvcmVzW1sxXV0KYGBgCgoKCiMjIENoZWNhbmRvIG9zIG91dHB1dHMKCgpgYGB7cn0Kc2VndWluZG8KYGBgCgpgYGB7cn0Kc2VndWlkb3JlcwpgYGAKCgojIyBDaGVjYW5kbyBxdWFpcyBjb250YXMgbmFvIHRlIHNlZ3VlbSBkZXZvbHRhCgoKYGBge3J9CmNvbnRhc191bmZvbGxvdyA8LSBzZXRkaWZmKHNlZ3VpbmRvLCBzZWd1aWRvcmVzKQpjb250YXNfdW5mb2xsb3cgPC0gc29ydChjb250YXNfdW5mb2xsb3cpCmBgYAoKCmBgYHtyLCBlY2hvPUZBTFNFfQpjYXQoIkVzc2FzIHNhbyBhcyBjb250YXMgcXVlIG5hbyB0ZSBzZWd1ZW0gZGV2b2x0YToiLAogICBjb250YXNfdW5mb2xsb3cpCmBgYAoKCgo8YnIvPgo8YnIvPgo8YnIvPgo8YnIvPgoKCgojIyAqKlNlIHZvY2UgZ29zdG91IGRvIGNvbnRldWRvLCBpbmNyZXZhLXNlIG5vIGNhbmFsIGUgbWUgc2lnYSBubyBHaXRodWIvaW5zdGFncmFtISoqCgo8YnIvPgo8YnIvPgoKCioqQ2FuYWwgUm9kYSwgcG9yIGZhdm9yISoqIGh0dHBzOi8vd3d3LnlvdXR1YmUuY29tL2NoYW5uZWwvVUNzZTFxU3NLNW1PSzlyd2RrZllNY2ZRCgoKCgoqKkdpdGh1YioqIGh0dHBzOi8vZ2l0aHViLmNvbS9yb2RhLXBvci1mYXZvcgoKCgoKKipJbnN0YWdyYW0qKiBodHRwczovL3d3dy5pbnN0YWdyYW0uY29tL3JvZGFfcG9yX2Zhdm9yCgoKCgoKIVtSb2RhLCBwb3IgZmF2b3IhXShodHRwczovL3Jhdy5naXRodWJ1c2VyY29udGVudC5jb20vcm9kYS1wb3ItZmF2b3IvRG9jdW1lbnRvcy9tYWluL1JvZGElMjBwb3IlMjBmYXZvciUyMGJhbm5lci5QTkcpCgoKKipQLlMqKiBNZSBkZXNjdWxwZSBwb3IgcXVhbHF1ZXIgZXJybyBvcnRvZ3JhZmljbywgbWV1IHRlY2xhZG8gbmFvIHBlcm1pdGUgcXVlIGV1IHVzZSBhY2VudG9zIG5hcyBwYWxhdnJhcyBlIG1ldSBjb21wdXRhZG9yIG5hbyB0ZW0gY29ycmV0b3IgcGFyYSBwb3J0dWd1ZXMgOikgCgpTZSB2b2NlIGVzdGl2ZXIgdmlzdWFsaXphbmRvIGVzc2UgZG9jdW1lbnRvIG5vIFIgb3UgUlN0dWRpbyBvcyAiPCJici8iPiIgc2FvIGV4cHJlc3NvZXMgdXNhZGFzIHBhcmEgcHVsYXIgdW1hIGxpbmhhLiAKCgoKKipNdWl0byBvYnJpZ2FkbywgYXRlIGEgcHJveGltYSEqKgo=